home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / scene3_4.dir / 00001_Script_--movieScript next >
Text File  |  1999-03-01  |  3KB  |  102 lines
  1. global fileSep
  2.  
  3. on startMovie
  4.   initMovie
  5.   set the exitLock to TRUE
  6.   
  7.   
  8. end startMovie
  9.  
  10. on initMovie
  11.   if the machineType = 256 then
  12.     put "\" into fileSep
  13.   else  
  14.     put ":" into fileSep
  15.   end if
  16.   
  17.   when keyDown then setVolume() -- to adjust volume by number keys
  18.   
  19. end initMovie
  20.  
  21.  
  22. on setVolume
  23.   set inKey = the key
  24.   
  25.   if inKey = "q" OR inKey = "Q" then go to frame "quitArtRight" of movie "intro"
  26.   
  27.   if charToNum(inKey) >= charToNum ("0") and charToNum (inKey) <= charToNum ("9") then
  28.     set newVol = integer (the key)
  29.     if the soundLevel <> newVol then set the soundLevel = newVol
  30.   end if
  31. end setVolume
  32.  
  33.  
  34. on idle
  35.   checkExit  
  36.   
  37.   set point1 = point(the mouseH, the mouseV)
  38.   set point2 = point(93, 19)
  39.   set point3 = point(322, 19)
  40.   set point4 = point(571, 19)
  41.   set rrDeltaLoc = point1 - point2 --rewind button
  42.   set ssDeltaLoc = point1 - point3 --stop button
  43.   set ffDeltaLoc = point1 - point4 --fast forward button
  44.   
  45.   set dX = getAt(rrDeltaLoc, 1)
  46.   set dY = getAt(rrDeltaLoc, 2)
  47.   set sdX = getAt(ssDeltaLoc, 1)
  48.   set sdY = getAt(ssDeltaLoc, 2)
  49.   set fdX = getAt(ffDeltaLoc, 1)
  50.   set fdY = getAt(ffDeltaLoc, 2)
  51.   
  52.   set rr = sqrt( dX*dX + dY*dY )
  53.   set ss = sqrt( sdX*sdX + sdY*sdY )
  54.   set ff = sqrt( fdX*fdX + fdY*fdY )
  55.   
  56.   -- removed fading option during beta -kl
  57.   
  58.   if rr <= 60 then
  59.     if the locH of sprite(95) > 650 then
  60.       set the loc of sprite(95) = point(93, 19)
  61.     end if
  62.     if rr < 20 then set rr = 4    
  63.     set the blend of sprite(95) = 100 -- - (rr * 2)
  64.   else
  65.     if the blend of sprite(95) <> 0 then set the blend of sprite(95) = 0
  66.     set the locH of sprite(95) = 1000
  67.   end if
  68.   
  69.   if ss <= 75 then
  70.     if the locH of sprite(96) > 650 then
  71.       set the loc of sprite(96) = point(322, 19)
  72.     end if
  73.     if ss < 20 then set ss = 4
  74.     set the blend of sprite(96) = 100 -- - (ss * 2)
  75.   else
  76.     if the blend of sprite(96) <> 0 then set the blend of sprite(96) = 0    
  77.     set the locH of sprite(96) = 1000
  78.   end if
  79.   
  80.   if ff <= 60 then
  81.     if the locH of sprite(97) > 650 then
  82.       set the loc of sprite(97) = point(571, 19)
  83.     end if
  84.     if ff < 20 then set ff = 4
  85.     set the blend of sprite(97) = 100 -- - (ff * 2)
  86.   else
  87.     if the blend of sprite(97) <> 0 then set the blend of sprite(97) = 0
  88.     set the locH of sprite(97) = 1000
  89.   end if
  90. end
  91.  
  92.  
  93.  
  94. on checkExit
  95.   if the commandDown and ¼
  96.    (the key = "." or the key = "q") and ¼
  97.    the exitLock = TRUE then 
  98.     go to frame "quitARTWrong" of movie "intro"
  99.   end if  
  100. end checkExit
  101.  
  102.